#!/usr/bin/perl

sub mysub {
        print $p x 2 . "\n";
        $_[0] =~ s/e/X/;
        print $_[0] . "\n";
}

$p = "testen";
mysub $p;
print $p . "\n";
